TOS Silver 2000/TOS Silver 2000.iso/programm/MM2_DEV/S/TEST/STORTEST.M

Text File | 1990-07-15 | 310 b | 17 lines

MODULE StorTest; (*$E MOS *)

FROM StorBase IMPORT FullStorBaseAccess;
FROM Console IMPORT WriteString, WriteLn, Read;

VAR c: CHAR;

BEGIN
  IF FullStorBaseAccess () THEN
    WriteString ('Malloc OK')
  ELSE
    WriteString ('Malloc nicht möglich')
  END;
  WriteLn;
  Read (c);
END StorTest.